--  ---------------------------------------------------------------------------
--  @File: errors.adb
--
--  @Project: LiberAda
--  @Version: 1.0
--  @Created: 2009-09-23
--  @Author:  Markus Knauß, Julian Trischler
--
--  @Description:
--    For a detailed description of this package (@see errors.ads).
--  @Implementation:
--    Handling with error messages is realized here.
--
--  @Modifications:
--    +2011-04-23 JT: Corrected termination with failure exit code and printing
--      error message to StdErr instead of StdOut.
--    +2009-09-23 MK: Initial release
--
--  ---------------------------------------------------------------------------
with Ada.Text_IO;
with Ada.Command_Line;

package body Errors is

   --  ------------------------------------------------------------------------
   --  @Procedure: Print_Error
   procedure Print_Error (Msg : in String) is
   begin
      Ada.Text_IO.Put_Line (Ada.Text_IO.Standard_Error, "Error: " & Msg);
      Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
   end Print_Error;

end Errors;
